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This paper consists of programming tips and charts to aid RPG . 
programmers in improving core utilization and execution speed, 
A System 360 Model 20 with 16K, MFCM, Tapes, and Disks 
was used for testing ‘Three compilers were used --Card 
(V2-L4); Tape (V2-.2); and Disk (V2-LQ). The contents of 
this paper are subjqct to change with different compiler releases. 
Numerous changes pere incorporated in the Disk Compiler 
which resulted in ag approximate 20% improvement in core 
utilization, 
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360 Model 20 RPG 
‘Suggested Methods of Improving Throughput and Core Utilization 


Use packed numeric fileds in records as much as possible, This will 
reduce core and improve throughput since RPG will not have to generate 
or execute instructions to pack/unpack the input/output fields. This will 
also improve the read-write time on tape and disk. It can also reduce 
the time for reading and punching cards. You can save core too, by 
reducing the size of the input/output areas. 


An ADD, SUB, Z-ADD, Z-SUB, MULT, DIV, or COMP between fields 
or constants with unequal decimal positions will take 6 to 40 bytes more 
than having equal decimal positions. It can also take 7 times longer to 
execute. (see charts) 


A COMP between alpha fields will execute 7 times faster than numeric 
fields. There is also an 18 byte savings under Card or Tape. Some- 
times you may have to define the input field as both numeric and alpha. 


If several calculations are conditioned by the same indicator(s), group 
them together. Tape and Disk will generate only one test. Sometimes 
Card will too. (see chart) 


Multiplying by the reciprocal instead of dividing can save core. 


See the last 3 pages of charts for examples of how to save core and 
execution time when you have several Compares to perform. 


With Card and Tape you will save 24 bytes by not having 3 field names in 
an ADD or SUB. 


Wrong: A add B Cc - 36 bytes 
Right: A add Cc Cc - 6 bytes 
B add C Cc - 6 bytes 


Instead of Z-ADD 0 Field (Field has 2 decimals) 


use Z-ADD 0.00 Field (Saves 24 to 28 bytes) 
If you have calculations at Total time, you can save core by coding: 
LO NLI Goto End 
Ll 
L2 15 
L3 01 
LO End Tag 
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10. 


ll. 


12, 


13, 


14, 


15, 


16. 


Reduce the number of Indicators used on Output as much as possible. 


Wrong: D Ol 02 MR 
D 01 02 MR 
D 01 02 MR 
Right: C 01 02 MR Seton 03 
O D 03 
D 03 
D 03 


This will save 14 bytes on Card and 20 on Tape or Disk. You will also 
save the testing of up to 6 indicators on every cycle. 


You can save core by reducing the number of edit words. Make your 
fields have the same field size. 


Listing your Output fields in descending sequence by ending position can 
save time. 


You can save 6 bytes per edit word or zero suppress field if you leave 
one space between the first print position of the field and the last position 
of the previous field (if the unpacked field length is ODD; leave 2: spaces 
if the unpacked field length is EVEN). 


A "B' in column 22 of the "H" Control Card will create an additional 
input area for the 2501 and can significantly increase throughput. (Up 
to double) 


When stating the size of the Printer in the "H'! Control Card and File 
Description, specify the last print position you use. This can save core 
and increase throughput. The same holds true for Card Readers and 
Punches. 


You can save up to 2K of Core on Tape and Disk by overlaying the 
OPEN routine. A "1", "D", or "B' in column 32 of the "'H" Control 
Card will allow Overlay. (See page 14 of Disk Performance Estimates 
C33-6003-0) 


1 - Tape 
D - Disk 
B - Both 
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17. 


18, 


19. 


20. 


21, 


22, 


23. 


24, 


25, 


On Input Specifications specify the most frequent type of record in 
a file first, then the next most frequent. This will save execution 
time since RPG tests records in sequence. 


On Calculation and Output Specifications, conditioned by more than 
one indicator, code the most likely indicator first. This will save 
execution time also. 


If records in a file have basically the same format, use an OR 
condition and Field Record Relation indicators on Input Specifications. 
The same principal applies on Output Specifications. This will save 
core. 


If you only want to process certain types of records in a file, you can 
save execution time this way: 


Wrong: ICARDIN AA O01 80Cl1 


oF 02 
Field A 
Field B 
Right: ICARDIN AA O01 80Cl1 
: Field A 
Field B 
AB 02 


This will save the time required to MOVE the unwanted records into 
Field A and B. Also it will not test MR and Levels. 


On Input Spec. use '"'C'' instead of "Z" or"D" for Record Identification. 
This will save core and time. 


If matching record control fields are in the same positions in all 
records, it will save core. Use the same name in all records if 
possible, 


Instead of splitting control fields (2 fields defined as L1) use Ll 
and L2, Saves core. : 


On Output use Space/Skip After instead of Before. Saves time. 
If you are using Tables on a Disk Model 20, be sure to specify a 


"B" in column 34 of the 'H'' Control Card for Binary search. Saves 
time. 
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Card Model 20's can benefit from #25 by compiling with the Disk 

Compiler and executing their object deck using the Card IPL, Job 
Control, and Monitor on their Card 20. They would also have the 
ability to load arid update the table during execution. 
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